home *** CD-ROM | disk | FTP | other *** search
/ Sexual Fantasies / Sexual Fantasies.iso / s / startup-sequence < prev   
Text File  |  1994-04-02  |  2KB  |  96 lines
  1. ; $VER: Startup-Sequence_HardDrive 40.2 (25.2.93)
  2. ; Startup-Sequence for hard drive systems
  3.  
  4.  
  5. is1.3 >nil: <nil:
  6. if not warn
  7.     C:SetPatch QUIET
  8.  
  9.     C:Version >NIL:
  10.     FailAt 21
  11.  
  12.     C:MakeDir RAM:T RAM:Clipboards RAM:ENV RAM:ENV/Sys
  13.     C:Copy >NIL: ENVARC: RAM:ENV ALL NOREQ
  14.  
  15.     Resident >NIL: C:Assign PURE
  16.     Resident >NIL: C:Execute PURE
  17.  
  18.     Assign >NIL: ENV: RAM:ENV
  19.     Assign >NIL: T: RAM:T
  20.     Assign >NIL: CLIPS: RAM:Clipboards
  21.     Assign >NIL: REXX: S:
  22.     Assign >NIL: PRINTERS: DEVS:Printers
  23.     Assign >NIL: KEYMAPS: DEVS:Keymaps
  24.     Assign >NIL: LOCALE: SYS:Locale
  25.     Assign >NIL: LIBS: SYS:Classes ADD
  26.     Assign >NIL: HELP: LOCALE:Help DEFER
  27.  
  28.     BindDrivers
  29.     C:Mount >NIL: DEVS:DOSDrivers/~(#?.info)
  30.  
  31.     IF EXISTS DEVS:Monitors
  32.       IF EXISTS DEVS:Monitors/VGAOnly
  33.         DEVS:Monitors/VGAOnly
  34.       EndIF
  35.  
  36.       C:List >NIL: DEVS:Monitors/~(#?.info|VGAOnly) TO T:M LFORMAT "DEVS:Monitors/%s"
  37.       Execute T:M
  38.       C:Delete >NIL: T:M
  39.     EndIF
  40.  
  41.     SetEnv Language "english"
  42.     SetEnv Workbench $Workbench
  43.     SetEnv Kickstart $Kickstart
  44.     UnSet Workbench
  45.     UnSet Kickstart
  46.  
  47.     C:AddDataTypes REFRESH QUIET
  48.     C:IPrefs
  49.     C:ConClip
  50.     
  51.     Path >NIL: RAM: C: SYS:Utilities SYS:Rexxc SYS:System S: SYS:Prefs SYS:WBStartup SYS:Tools SYS:Tools/Commodities
  52.  
  53.     viewtek <nil: >nil: s:SprHiresBootupPic.CD32 delay 4
  54.     run joymouse >nil: <nil:
  55.     
  56.     Resident Execute REMOVE
  57.     Resident Assign REMOVE
  58.  
  59.     C:LoadWB
  60.     EndCLI
  61. else
  62.     SexualFantasies_CD:wb1.3/c/rmtm 
  63.  
  64.     SexualFantasies_CD:wb1.3/c/assign sys: SexualFantasies_CD:wb1.3
  65.     SexualFantasies_CD:wb1.3/c/assign c: sys:c
  66.     assign l: sys:l
  67.     assign devs: sys:devs
  68.     assign s: sys:s
  69.     assign libs: sys:libs
  70.     assign fonts: sys:fonts
  71.     
  72.     c:SetPatch >NIL: r ;patch system functions
  73.     cd c:
  74.     Sys:System/FastMemFirst ; move C00000 memory to last in list
  75.     SetClock >nil: load ;load system time from real time clock (A1000 owners should
  76.                   ;replace the SetClock load with Date
  77.     FF >NIL: -0 ;speed up Text
  78.     resident >nil: CLI L:Shell-Seg SYSTEM pure add; activate Shell
  79.     resident >nil: c:Execute pure
  80.     mount newcon:
  81.     ;
  82.     failat 11
  83.     run execute s:StartupII ;This lets resident be used for rest of script
  84.     wait >NIL: 5 mins ;wait for StartupII to complete (will signal when done)
  85.     ;
  86.     SYS:System/SetMap usa1 ;Activate the ()/* on keypad
  87.     path ram: c: sys:utilities sys:system s: sys:prefs add ;set path for Workbench
  88.  
  89.     sv <nil: >nil: -s4 SexualFantasies_CD:s/loresbootuppic.cdtv
  90.  
  91.     LoadWB delay  ;wait for inhibit to end before continuing
  92.     endcli >NIL:
  93. endif
  94.  
  95.  
  96.